home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / misc_pto / basic-c / test6.bas < prev    next >
BASIC Source File  |  1988-12-20  |  706b  |  33 lines
  1. rem ********************************************
  2. rem ************** TEST PROGRAM ****************
  3. rem ********************************************
  4. cls
  5. move 0 0
  6. input "press enter to begin", y
  7. rem ***** draw screen box *****
  8. gosub 100
  9. move 23 21
  10. input " [ press enter to end test program ] ", y
  11. end
  12. rem ****************************************************
  13. rem ********** subroutine for boxing screen ************
  14. rem ****************************************************
  15. 100 rem draw both horizontals
  16. rem
  17. for x = 0 to 79
  18.     move 0 x
  19.     print "-";
  20.     move 23 x
  21.     print "-";
  22. next
  23. rem
  24. rem draw both verticals
  25. rem
  26. for y = 0 to 23
  27.     move y 0
  28.     print "|";
  29.     move y 79
  30.     print "|";
  31. next
  32. return
  33.